home *** CD-ROM | disk | FTP | other *** search
/ Multimedia Dogs / Multimedia Dogs v2.0.iso / mac / Demos / PetDisc / Multimedia Exotic Pets DEMO / MMPETS1D.DXR / 00183_BreedDatabaseCode.ls < prev    next >
Encoding:
Text File  |  1995-10-06  |  894 b   |  9 lines
  1. global gBreedDatabase, gBreedDatabaseCount, gBreedDatabaseByCode, gBreedDatabaseByGroup
  2.  
  3. on initBreedDatabase
  4.   set gBreedDatabase to [["Caimans", "caiman", "reptam", [4, 3, 3, 3, 3, 4, 3, 5]], ["Clownfish", "clownfi", "aquatic", [2, 2, 2, 2, 2, 2, 2, 2]], ["Ferrets", "ferret", "pocket", [3, 3, 3, 3, 4, 3, 2, 3]], ["Paso Fino", "pasofin", "horse", [5, 5, 5, 5, 4, 4, 2, 5]], ["Pot-Bellied Pigs", "potbell", "farm", [3, 3, 3, 4, 4, 4, 2, 4]], ["Tarantulas", "tarantu", "crawler", [1, 2, 1, 3, 2, 2, 4, 3]], ["Toucans", "toucan", "bird", [3, 3, 3, 3, 3, 3, 2, 4]]]
  5.   set gBreedDatabaseCount to count(gBreedDatabase)
  6.   set gBreedDatabaseByCode to ["caiman": [1], "clownfi": [2], "ferret": [3], "pasofin": [4], "potbell": [5], "tarantu": [6], "toucan": [7]]
  7.   set gBreedDatabaseByGroup to ["aquatic": [2], "bird": [7], "crawler": [6], "farm": [5], "horse": [4], "pocket": [3], "reptam": [1]]
  8. end
  9.